home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POV302 / SCENES / MATH / GRAFBIC.POV < prev    next >
Encoding:
Text File  |  1993-09-27  |  1.4 KB  |  75 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // Sample Quartic file
  4. // by Alexander Enzmann
  5.  
  6. // Bicorn 
  7.  
  8. #include "shapes.inc"
  9. #include "colors.inc"
  10. #include "textures.inc"
  11. #include "shapesq.inc"
  12.  
  13. // Get the declaration of the coordinate axes 
  14. #include "axisbox.inc"
  15.  
  16. // Declare the orientation of the surface 
  17. #declare Orient = <-20, -60, 0>
  18.  
  19. // Bicorn 
  20. union {
  21.    object {
  22.       Bicorn
  23.       sturm
  24.       texture { pigment { Red } finish { phong 1.0 } }
  25.  
  26.       scale 3
  27.  
  28.       bounded_by { sphere { <0, 0 ,0>, 3 } }
  29.  
  30.       clipped_by {
  31.          plane {  x, 0.5 }
  32.          plane { -x, 0.5 }
  33.       }
  34.    }
  35.  
  36.    object {
  37.       Bicorn
  38.       sturm
  39.       texture { pigment { Blue } finish { phong 1.0 } }
  40.  
  41.       scale 2.99
  42.       translate 0.01*y
  43.  
  44.       bounded_by { sphere { <0, 0, 0>, 2.99 } }
  45.  
  46.       clipped_by {
  47.          plane {  x, 0.49 }
  48.          plane { -x, 0.49 }
  49.       }
  50.    }
  51.  
  52.    translate -1.5*y
  53.    rotate Orient
  54. }
  55.  
  56. // Show coordinate axes 
  57. object {
  58.    Axes
  59.    rotate Orient
  60. }
  61.  
  62. // The viewer is eight units back along the z-axis. 
  63. camera {
  64.    location  <0.0, 0.0, -8.0>
  65.    right     <4/3, 0.0,  0.0>
  66.    up        <0.0, 1.0,  0.0>
  67.    direction <0.0, 0.0,  1.0>
  68. }
  69.  
  70. // Put in some light sources so that highlighting can give visual clues
  71. //  as to the shape of the surface.
  72. light_source { <200, 100, -300> colour White }
  73.  
  74. light_source { <-200, 100, -300> colour White }
  75.